null {1}clear 
  10 clear ;NT=5;CY=0;CX=-40;print "right PAUSE TAPEleft ";NT=0;CY=-24;print "right ANY KEY to CHANGE PAGEleft ";if KPclear ;print "OCTOBER 26, 1981"
  20 print "ROUTE 1, box 992D";print "PENSACOLA, FLORIDA 32507";print ;print "MR. ROBERT FABRIS";print "3626 MORRIE DRIVE
  30 print "SAN JOSE, CALIFORNIA      95127-9990";print ;print "DEAR BOB,";if KPclear 
  40 print "HERE ARE THE 3 UTILITY    PROGRAMS THAT YOU MIGHT   WANT to SHARE WITH OTHERS.
  50 print ;print "PLEASE  DO NOT  'RESET'   COMPUTER UNTIL REQUESTED";print 
  60 print "    right NOW PRESS ANY KEYleft ";print ;print "   right THEN  RESTART TAPEleft ";if KPclear ;:input 2
:return ;run 
>{-1}{-1}null {2}%(-24576)=70
70
clear 
   8 clear ;NT=5;CY=0;CX=-40;print "right PAUSE TAPEleft ";if KPclear ;NT=0
  16 print "THAT input WAS AN EXAMPLE OF THE 'MEMORY clear BY   INPUT' UTILITY PROGRAM    WHICH FOLLOWS.
  24 print ;print "THE 3 UTILITY PROGRAMS AREinput IN THE USUAL WAY.   :input 3, 4, & 5          RESET BEFORE EACH
:return ;run 
